home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / databases / afile_v401.lha / AFile / Example / DisksPrint.rexx < prev    next >
Encoding:
OS/2 REXX Batch file  |  1994-04-03  |  353 b   |  25 lines
  1. /*
  2.  * This is a sample script which is called to print records
  3.  */
  4.  
  5. SIGNAL ON ERROR
  6. OPTIONS RESULTS
  7. ADDRESS "AFile_rexx"
  8.  
  9. /* read data from record */
  10.  
  11. "GETFIELD ARTIST"
  12. Artist = STRIP( RESULT )
  13. "GETFIELD ALBUM"
  14. Album = STRIP( RESULT )
  15. "GETFIELD YEAR"
  16. Year = STRIP( RESULT )
  17.  
  18. SAY Artist || ', ' || Album || ' (' || Year || ')'
  19.  
  20. /* end */
  21.  
  22. ERROR:
  23. EXIT 0
  24.  
  25.